home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / network / brightworks 2.0 / BSC200.Z / TESTDLG2.DCL < prev    next >
Text File  |  1994-01-19  |  2KB  |  69 lines
  1. '***************************************************************************************
  2. ' Testdlg2.dcl is a script that displays a dialog box with various types including 
  3. ' text, edit box, pushbuttons, radio buttons check box, group box, combo and listbox
  4. '
  5. ' Created by Automated Design Systems
  6. ' (C) Copyright Automated Design Systems 1988 - 1994   All Rights Reserved 
  7. '****************************************************************************************
  8.  
  9.  
  10.  
  11.  
  12. sub main()
  13.     'example of a dialog box with all types of controls in it
  14.     Dim ListBox1$() as string
  15.     Dim ComboBox1$() as string
  16.     Dim stf$ as string                        ' static text variable
  17.  
  18.     stf$ = "SAMPLE TEXT FIELD"
  19.  
  20.     '    in the example below, note how the Text field uses the
  21.     '    variable declared above to get its field name.  this can
  22.     '    be done for any of the dialog control types except:
  23.     '    OKButton, CancelButton, TextBox
  24.     '
  25.     '    it should also be noted that the variable must have a
  26.     '    value assigned BEFORE the dialog box is defined as
  27.     '    illustrated here
  28.     Begin Dialog UserDialog 16,32,304,168, "Sample Dialog Box"
  29.         OKButton 251,9,44,14
  30.         CancelButton 252,30,44,14
  31.         PushButton 252,51,44,14, "Pushbutton1"
  32.         PushButton 252,73,44,14, "PushButton2"
  33.         GroupBox 13,9,84,59, "Sample Group Box"
  34.         OptionGroup .OptionGroup1
  35.             OptionButton 21,24,65,14, "Option 1"
  36.             OptionButton 21,44,66,14, "Option 2"
  37.         CheckBox 15,78,79,14, "Sample Checkbox", .CheckBox1
  38.         Text 14,105,79,8, stf$
  39.         TextBox 16,120,81,12, .TextBox1
  40.         ListBox 114,14,120,48, ListBox1$, .ListBox1
  41.         ComboBox 113,68,120,84, ComboBox1$, .ComboBox1
  42.     End Dialog
  43.  
  44.     Dim aSampleDialog as UserDialog        'declare the dialog variable
  45.  
  46.     AppList ComboBox1$
  47.     AppList ListBox1$
  48.     a% = Dialog(aSampleDialog)                'display the dialog
  49.     crlf$ = chr$(13)+chr$(10)
  50.     dlgstr$ =  "Button pushed = "
  51.     select case a%
  52.         case -1
  53.             dlgstr$ = dlgstr$ + "OK"
  54.         case 0
  55.             dlgstr$ = dlgstr$ + "Cancel"
  56.         case 1
  57.             dlgstr$ = dlgstr$ + "PushButton1"
  58.         case 2
  59.             dlgstr$ = dlgstr$ + "PushButton2"
  60.     end select
  61.     dlgstr$ = dlgstr$ + crlf$
  62.     dlgstr$ = dlgstr$ +  "Option = " + str$(aSampleDialog.OptionGroup1) + crlf$
  63.     dlgstr$ = dlgstr$ +  "Checkbox = " + str$(aSampleDialog.CheckBox1) + crlf$
  64.     dlgstr$ = dlgstr$ +  "TextBox = " + aSampleDialog.TextBox1 + crlf$
  65.     dlgstr$ = dlgstr$ +  "ListBox = " + ListBox1$(aSampleDialog.ListBox1) + crlf$
  66.     dlgstr$ = dlgstr$ +  "ComboBox = " + aSampleDialog.ComboBox1
  67.     msgbox dlgstr$
  68. end sub
  69.